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ABSTRACT and CONTENTS 

This document is a description of the MNODT microcode board for use 
with the microscheduler. 
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MNODT is a variation of ODT for use with the micros cheduler. It has two, data 

items, an address (ADR) and a data object (OBJ), both stored in holding registers. 

Both items are stored and typed by MNODT as 8 (octal) digit numbers. The 

additional holding registers are used for flags (FLAG and XFLAG). Entry to 

MNODT occurs when the reset button on the microscheduler is pressed. A kludge 

on the MNODT ROM board (location 1700B - 1777B) forces a branch to 1777 from 

instruction 0. 1777 contains a branch to 1700, the entry point for MNODT. It 

initializes OBJ to 0. At 1700, FLAG is initialized to 4B7. As octal digits are 

typed, they are assembled into OBJ until a control character is typed. The control 

characters and their actions are: 

SLASH: Type »/u/ ' 

ADR «- OBJ 
Fetch [ADR] 
OBJ «- [ADR] 
Type OBJ 
Type '«_j T 
FLAG <~ 4B7 



CR: 



LF: 



G: 
P: 



[ADR] <r- OBJ 
Type ' CR, LF' 
FLAG 4- 4B7 

[ADR] f- OBJ 

Type 'CR, LF' 

ADR <- OBJ 4- ADR +1 

Type OBJ 

GO TO SLASH 

X «- OBJ, BRANCH TO X 

MERGE BIT 4 INTO OBJ 



This is for private memory 
referencing. An address with- 
out bit 4 set is to central 
memory 
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t- [ADR] 4- OBJ 

Type f t T 
ADR «- ADR -2 
GO TO LF + 1 

The main loop gathers TTY input and branches to one of the routines described 

above if the character is a control character. If the character is an octal digit, 

it is merged into the low order 3 bits of OBJ (after cycling OBJ left by 3). FLAG 

is set by the routines which handle the control characters. If the main loop 

encounters a negative flag when a digit is input, it clears the flag and clears OBJ 

before merging the new digit into OBJ. Three subroutines are used. STORE 

stores OBJ at ADR, A PRINT prints single characters (in M), and TOBJ types 

OBJ as an 8-digit octal number. TOBJ suppresses up to 7 leading zeros. The 

routines are organized such that when they return to the main loop, the data in 

M, Q and Z is arbitrary, with one exception - A PRINT leaves 7 in Q for use by the 

main loop, and leaves M undisturbed. The MICRO input and compilation of the 

code follows: 



PAGE 1 SYSTEM (LEWENDAU/MNGDT U/05/69 Q65683Q 

# MN8DT PROGRAM 

# DECLARATIONS 

# MACROS 

MACRO PMVDEFINE PARAMETER *1**/*3*J 
MACRO REQybEFlNE REGISTER *2* AS #|*J 

# PARAMETERS 

PM(SUSH#S7B)i# CHARACTER '/» 
PM(CRf*l$B)j# CARRIAGE RETURN 
PM(LFQ,lgB)i* LINE FEED 
PM(HGj107B)J* CHARACTER iQ! 
PM(PP#ia08);* CHARACTER »P« 
PM(SPAC£#*QB)J* SPACE 
PM(UPARW#i36B)|# CHARACTER »|» 

# REGISTER DEFINITIONS 

RES(ADR#RO)l 
REG(0BJ#R2)J 
REG<FLAG/R3U 
REG(XFLAG,R4>J 

# BRANCH CONDITIONS 

DEFINE BCONDITJON BL*0#BLNZ>/£3B# () I 

# SPECIAL CONDITIONS 

DEFINE SQONDITION ALERT^B, () # N8VCYj 
DEFINE SCONDITION P0W15B, (BRM XP8T>#N0VCY/ 
DEFINE SCONDITJON PJNV16B* (BRM XPJN)j 

# PROGRAM PROPER 

ORG 1777Bj 

GOTO START/ OBJ^Ol 

ORG J700BJ 

start; flag^b7j 

LOOP* ZV4B7, ALERT* 

PIN* ZVE8* Q^/21 

GOTO LOOP ON Z AND Q«Oj 

ZV*B7*g # ALERT* 

PJN# M*/E2# QV177P; 

MVM AND Q# QVSLSHl 

GOTO SLASH 8N M £QR Q-O, Q./CRT/ 

GOTO CR ON M EQR QsQ# QVL^QJ 

GOTO LF ON M EOR QfQ# QVGGj 

G8T8 BRANCH ON M EOR QiQ* QJPPl 



PAGE Z SYSTEM (LEWENDAL )/MN$DT U/Q5/69 0656530 

G8T8 MERGE 8N M £8R Q*Q, QVUPAW 
G9T8 UPAR 8N M E8R QfO# QV170BJ 
JVM AND Q# QV60BJ 

G8T8 l89p aN z esr q*oj 6o^i^^^^ oc: ^^r 

CALL APR I NT J 6o&» ttm. (Oul^-Ctcv; 4P&ur -&«^ 7 u* IU 

IVM AND Q# G8T8 *+3 8N FL f AG>§0l 

FUGVQJ 

8BgV£ # G8T8 L89P| 

MV0Bg # GV787; 

QVM AND N9T G LCY 3| 

6BJVQ $R Z, G9T8 L88P| 

MERGE! MVPP# CALL APRJNT/ 

$BgV8Bg MRG 386* G8T9 L89PI 

CR? CALL STR£l 

MVCPT, CALL APRINTI 
MVLFDj CALL APRJNTI 
FLAGVWi G8T8 L88P| 

LFl CALL STREl 

MVCRTj CALL APRINTI 
MVLFDj CALL APRINTI 
8BgVADRVADR4.i# CALL T8§g* 

SLASH? M^SLSH, CALL APRJNTl 
MVgPACE/ CALL APRINTI 
FETCH 8BV1 
8BJVM, CALL T8BV1 
MVFLAGV4B7*SPACE# CALL APRJNTi 
G8T8 L88P) 

BRANCH? M^GG # CALL APRJNTf 
MV06gj 
G8T8 M| 

upari call strei 

mvuparw # call aprinti 
mvadr# qv2# dg9t8 lf*u 

ADRVM.Qi 

STR£! M^8BV # DRETURNj 
ST9P&I 

APRINTS ZV*B7i AlERTj 
PJN* ZVE2> 0V4J 
G9T8 APRJNT 8N Z AND QtOi 
ZV^B7*4# ALERT* pRETURNj 
£VM# P8T# QV7| 

T8BJJ XFLAGV8SI *—** i^M^ XfLAG r* h ~* 

FLAQVwlOBl TWcltaJ a^^Jc 
XL88PS MV8Bgi 

8BgVM^M LCY 3# QV7I 
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M>/M AND Q MRC3 60Sj G9T9 PRJN JP" 6L*0j V*\\~tlu~*^'^k<flt '* u**-y^r- 



G9T8 PRINTS 8N XPLAG^Qj Fi^ '. r ,>W ull i j^ i d^ U^ <At4 ^ 
PRIM CALL APRJNTJ 



MVXFLAGv/XFLAG MRG ^B7l 

G8T6 XL86P SN FLaGVPLAG*1<QJ 

G8T& M| 

ENpJ 
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# MN0DT PROGRAM 

# DECLARATIONS 

* MACRSS 

d Ac S2 PMVDEFINE PARAMETER #1#*/#2*J 
MAQR8 REQVOEFlNE REGISTER *%* AS *X*I 

* PARAMETERS 

DEFINE PARAMETER SLSHV57Bl# CHARACTER f/t 

DEFINE PARAMETER CRT>/l§Bj* CARRIAGE RETURN 

DEFINE PARAMETER LFDViSBJ* LINE FEED 

DEFINE PARAMETER QGV107B|# CHARACTER »G» 

DEFINE PARAMETER PP*/l£OBl* CHARACTER >P» 

DEFINE PARAMETER SPACE*/40B|# SPACE 

DEFINE PARAMETER UPARW*/i36B/# CHARACTER » f f 

* REGISTER DEFJNJTJ9NS 

DEFINE REGISTER RQ AS APR* 

DEFINE REGISTER R2 AS $BJ* 

DEFINE REGISTER R3 AS FLAGj 

DEFINE REGISTER R4 A$ XFLAGl 

# BRANCH CONDITIONS 

DEFINE BC9NDJTI0N BL*0# BLNZ^/23B# ( ) J 

* SPECIAL CONDITIONS 

DEFINE SQONDITION ALERTVl^Bj ( )#N9VCYj 
DEFINE SCONDJTION POT^lSB, (BRM XPo T >#NOVCYj 
DEFINE SCONDJTION PJNVl6Bj(BRM XPJN)| 

• PROGRAM PROPER 

ORG 1777B; 

17778 G6TS START, OBJ^O 
,TXW f 1 *7 
#LRN i 2 #70 
tMC • 1 5 
t VCY m X 8-6r 

, B = '"too ^^io^tl 
8RG i700Bi 



X7QQI START* FLAG^4B7 

#TCX 1 J ^3 

•TXW ■ X ^7 

•LRN « 3 71j70 



PAGE 
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SYSTEM tUEWENOADVNtEMNBDT 11/05/69 Q658J30 



■i &r 

• C § -40000000 18# 



17011 L»0P5 ZV4B7, 
•MS i I* #63#62 

• TCX i 1 43 

• LZX i 1 76 
tVCY g 1 $6- 

•C p »40000000 IBs 



ALERT 



1702? 

• MS * 

• TCX 

• IQX 



PINj Z*/£2# GW2 



16 #64*63*62 
* 1 43 
f 1 74 
f 1 77 
tTE2Y - 1 89 

#B | 756 frrfrO *U*lg*l»jl5jlr * 

- » C p » 34gl <t 575 t8»ag # g3* £ ^ 7 *£8#3tT 3- gf34*4Qf n# 



c - x 



¥0 



17Q3? G6T© U8©P 6N Z AND QiO 

• BL * 10 #78 
•TAX « I ^9 
•MC ■ 2 #4 

• 3 § 75 $ 9#10iU#lgjUil5H ^> 

tC ""■ «W 1*573 — -i>'#2ajWigBjS7jg0j3l » *gj1»«»0H 1? 



•-&* no I 



v. 10 * 1 
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1704! ZV4B7*g# ALERT 
•MS i 14 #63#62 
tTCX * 1 43 
iLZX « 1 76 

-r¥C Y 9 1 8^" 

•C i «37777776 18#40# 



1705! PJN# M^E§# Q^177B 

•MS f 16 #64#63#62 

•TCX * 1 43 

•LMY f 1 73 

•LOX « 1 74 

• TggY p I 89 

#C'p 177 35#36#37#38*39j#0#41* 



1706? 
iBR * 

• TCY 

• TAX 

tLMX 
•LOY 



M^M 
10 
1 
1 
1 
1 



AND 

44 
49 
72 
75 



Q# QVSLSH 
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,C f'57 36#38#39,40#41# 

t?07i ear© slash sn m E8R Qiq, qvcrt 

tBR p 10 #82 

• BL « 16 #80*79/78 

• TCY f 1 44 
•TAX i 1 49 
tUQY t 1 75 
f MC • 2 #4 

• B 1 1740 8#9nQ'U#12# 
tC 1 15 38 # 39#M # 

1710? G6T9 CR 8N M E8R Gi0# QVL/D 

tBR ■ 10 #83 

iBU 1 16 #80#79#78 

•TCY * 1 44 

•TAX • 1 49 

•LQY f I 75 

tMC * 2 #4 

•B f 1730 Sj9#10#11#13#14, 

• C § 12 38j<f0# 



171H G8T8 IF 8N M £8R Q S Q# Qs/GG 

• BR ■ 10 #82 

•BL * 16 #80#79j78 
•TCY t 1 4# 
•TAX t 1 49 

• LQY i 1 75 
•MC « 2 #4 

tB § 1734 8#9#10#11#13#14#15# 
•C § 107 35#39#40#4i# 



17121 GQT8 BRANCH 8N M £8R Qi0# Oa/PP 

• BR • 10 #82 

tBL ■ 16 #80#79#78 

•TCY i 1 44 

•TAx § 1 49 

•LQY i 1 75 

iMC ■ 2 #4 

•B « 1746 8#9#!0#11#12*15#16# 

•C i 120 35#37# 



17131 G8T8 MERGE 8N M £8R Qs0# QVUPARW 

•BR » 10 #82 

•BL ■ 16 #80#79#78 

•TCY « 1 44 

•TAX f 1 49 

•LQY 1 1 75 
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•MC « Z s* 

• B § 17g6 8#9j10jU«13*15j16« 
•C i 136 35*37j38j39#^Q# 

J7J4? G9TS UPAR 8N M E8R Qi0# QV17QB 

• BR * 1Q #83 

«BL * 3,6 j8Q#79#78 

•TCY f 1 ** 

• TAX i i ^9 
•UQY i 1 75 
•MC • Z ** 

• B i 1751 S#9#10#ll#12#l*Ml7* 

• C i 170 35*36#37#38# 

1715? - ZVM AND Q* GW60B 

tBR * 10 #82 

•TCY f 1 M 

•TAX ■ 1 *9 

tLQY t 1 75 

tUZX i 1 76 

tVCY i 1 -*1r 

■C i 60 36j37# 

1716? OeTQ U68P 6N Z E$R QrfO 

• BR ■ 16 #8^83#82 
•Bt i 10 #78 

•TAX ? 1 *9 
•MC i 3 5sk 

• 8 t 1701 8#9#lQ#n>17j 

17171 CALL APRJNT 
tMCONT * 1 7 
•MC * 20 #1 

iVCY * 1 86r 

•B ; 1757 8#9/10j11#12j14#15,16*17# 

17gQ? 2VM AND Q# GST9 **3 8N FLAG>§0 

•RRN f 3 68#67 

tBR • 10 #82 

•THY * 1 H 

•TAX i 1 *9 

•UZX i 1 76 

• MC f 7 5***3 

•B • 1723 8#9#10#11#13#16#17# 

17218 FIASCO 

•TXW * 1 *7 
•LRN ? 3 71,70 



PAGE 5 SYSTEM (lEWENDAt)/N.EMN©PT li/05/69 0658*30 
iVCY ■ 1 &r 

17221 68j>/z, aeta ueep 

•BR » 4 #83 
•BL * 10 #78 

• TXW ? t ^7 
•TAX * l *? 
•URN i 2 *70 
•MC * 1 5 

• VCY i 1 Wr 

• b « i7oi s#9#io#ii#i7# 

17231 M^BJ, Q*/7B7 

• RRN t Z #67 
•TCX f 1 *3 
•THY f 1 46 
•UMY i 1 73 

• LQx f 1 74 
-rvev i 1 W 

•C f -10000000 18#19#20# 

1724? Q*/M AND N8T Q UCY 3 
•BR « 10 #$2 
,BL * 14 #79*78 
•MS * 3 65#64 
•UQX f 1 74 
-*¥€^Mr-t 8£- 

1725J 8BJVQ 9R Z# G6T6 U88P 

•BR « 6 #84#83 

•BL * 10 #78 

•TXW * 1 47 

•TAX ■ 1 49 

•URN * 2 #70 

•MC « 20 #1 

• VCY f 1 8*r 

•B f 1701 8#9j10#11#17# 



1726* MERG^J MVPP, CAUU APRINT 

•MCeNT * 1 7 

•TCx « 1 ^3 

•UMX ! 1 72 

•MC i 1 5 

■ t VCY § 1 8^ 

• B s 1757 £#9a0#ll#12#14,15 # 16#l7# 

•C i 120 35#37# 
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1727* $&*M8BJ MRG 2B6# G8T8 L9$P " 

•RRN i Z #67 

•TCY 9 1 44 

• THY i 1 46 

tTYW t 1 48 

•URN i 2 #70 

•MC « 20 #1 

m\ff*M m 1 ■ Rtr 


• B t 1701 8#$#10jU#17| 
•C i 2000Q00 22, 

1730* CR? CALL STRE 
•MC8NT i 1 7 

• MC M 5 

iVCY i 1 8*~ 

•B ■ 1755 8j9jl0#ll#12,14#15#17i 



11/05/69 0658J30 



1731? MVCRT# CALL APRINT 

•MCQNT f 1 7 

•TCX ■ 1 43 

•LMX « 1 72 

•MC 9 20 #1 

i VCY f I Hr 



•B V 1757 8#9#10^11#12#14il5|16#l7# 
tC t 15 38*39*41' 



17328 MVL^D# CALL APRINT 

•MCeNT * 1 7 

• TCx * 1 *3 

•LMX f 1 72 

•MC ■ 1 5 
,y^Y » _ -| &£• 

,B i 1757 8^#10#H/12/14#15*16#17# 

tC ! 12 38 # 40# 



1733? FLAG»/4B7# G8T8 L68P 



• TCX i 1 


43 


• Txw « 1 


47 


• LRn ■ 3 


7l#70 


•MC • 20 
iVCY i 1 


— *6- 



• B § 1701 8#9*10#U#17# 
•C § -40000000 18# 



1734! LF? CALL STRE 
•MC0NT i 1 7 
•MC f 1 5 
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fVCY * 1 -Wr 

• 8 i 1755 8#9#10jUj12#14,15#17j 

1735* M^cRT, CALL APRJNT 
fMC^NT i 1 7 
#TCX i 1 43 
iW i 1 72 

•mc * 20 n 

jVCY i i 4£ 

tB i 1757 8#9il0jll#18#l*/15#l6#17# 

,C e 15 38#39#41, 

17361 MVLFD* CALL APRJNT 
tMCONT * I 7 
•TCX i 1 43 
iLMX * 1 72 
»MC i 1 5 

- r VC¥— » I £6~ 

*B * 1757 S#9,lQ#ll#12#l*#15,l6#i7# 
tC f 12 38#40# 

17371 ©BJ^ADRVADR*!, CALL T9BJ 
•MC9NT * 1 7 

• IHR ■ 1 42 
•THY 9 1 46 

• TYw i 1 48 
•LRN §2 #70 
•LRO » 1 §8 
•MC * 20 ii 
t VQy ■ | 8£- 

• B i 1764 8#9#10#U#12#13#15 # 



1740S SLASHj MVSLSM # CALL APRJNT 
•MCeNT f 1 7 
•TCX ? 1 ^3 
•LMX * 1 72 
•MC * 1 5 
-c VCT ■ ■ — % %$• 

• 8 § 1757 8#9#10#ll*12#14#15,l^l7i 

• C • 57 36j38j39/40#41 ( i 



1741! M^$PACE# CALL APRINT 
•MC8NT i 1 7 
•TCX * 1 *3 
•LMX * 1 72 
• MC * 20 #1 

iVCY ff 1 *6" 

•B i 1757 8#9#10#11/12#14#15j16#17# 
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•C f 40 36, 



1742* FETCH R0V5BJ 


•RRN i 2 


#67 


#MS * 44 


#63#60 


•THY « I 


46 


•TYW i 1 


43 


•URO i i 


38 


-r¥eY-^4— 




1743? BBJ*/M # CALL TQBg 


•MC9NT f . 


i 7 


•BR • 10 


#82 


• BL * * 


#79 


• TXW f 1 


47 


•TAX i 1 


49 


•URN i 2 


#70 


tMC • I 


5 


■■VCY % 1 


— a-6- 


•B i 1764 


8#9#l0'll'l£#13#15# 


J744? M^FLAG^4B7+SPACE# CALL APRJNT 


•MCQNT § 


1 7 


•TCX • I 


43 


•TXW i 1 


47 


• (.MX i 1 


72 


•IRN 1 3 


71#70 


tMC « 80 


a 


»VCY f 1- 


— **6" 


•B . 1757 


8j9/10m#t2#14ji9#l6jl7* 


,C f -37777740 18#36 # 



174§J G6T8 U88P 
•MC ■ 1 5 

»V frV * 4 frfr 

*B e 1701 8#9j10#U'J7# 



1746* BRANCH! M^GG| CALL APRJNT 
•MCeNT * 1 7 
•TCX ■ 1 ^3 

•LMX § 1 72 

tMC • 20 #1 

• VCY g""t £$" 

»B § 1757 g#9#10#ll#12#i4#iS*16#i7* 
•C i 107 35#39#40#41/ 



1747J MVgl 
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• RRN i 2 #§7 
•THY i 1 *6 
•LMY ! 1 73 

tVCY f 1 &£r 

17501 G8T8 M 
|MC0NT t 3 7#6 
•BR * 10 *82 
iBL " * * 7 9 
•TAX i 1 *9 

• MC * 1 5 

• vcy ■ i — e* 



1751$ UPARJ CALL STRE 
•MCaNT i 1 7 
•MC * 20 *% 

• VCY i 1 H 

•B • 1755 8#9#10#il*18#l*#15#17i 



17S£J H^yPARWj CALL APRINT 
•MC9NT f 1 7 

• TCX p 1 ^3 
tLMX ■ 1 72 
•MC * 1 5 

iVCY * — t 56" 

• B i 1757 8#9#10#Ua2*l*#15,16#l7# 

• C i 136 35#37*38#39#40# 



Q^2^ DG8T6 LF+1 



1753? 


mvaDR* 


• TCX 


* 1 


43 


• THY 


» 1 


H 


• LMY 


f I 


73 


• LQX 


• 1 


74 


• MC « 


» 20 


#1 


• DO© 


- * 


87 
_ — &*- 


-• VCY 


• I 


— @o 


• B ■ 


1735 




tC ■ § 


2 


40* 



8#?*10#il#13#l*/i5 JP 17# 



17S54J ADR*/M»Q 

BR * 15 85/83#82 

BL • 4 > 7 9 

L&C i 1 50 

TXW i 1 ^7 

TAX f 1 49 

•LRO i 1 58 



PAQ£ 10 SYSTEM (LEWENDAL )/N»EMN$DT 11/05/69 0658*30 

175^? STREJ l"W0BJ# DR£TURN 

•MC9NT * % *$ 

•RRN • 3 #67 

•THY i 1 ^6 

■LMY i X 73 

•MC * i 5 

•039 i 1 87 

• VCY f -t &6" 

1756* ST8RE 
•MS 9 42 #64#60 
-tVCY e 1 S-6- 



1757! APRINTI £V*B7# ALERT 
•MS * 1* #63#62 

• TCX * 1 *3 

• LZX « i 76 

• VCY i t ^ 

• C 9 .40000000 18# 



1760* PJN# Z>/E£# GW4 

• MS * 16 #6<t#63#6g 
•TCX ■ 1 ^3 

•LQX i 1 74 

• LZY i t 77 
•TE2Y * 1 89 

rB e 75 6 -9rttrttrttTlfrT&+±6r 

-» g I i3<»54 '» 575 lfl#ggjg3#aSjg7jd$j jl*ag T 3' i j <l 0j»lj 

. C » + 3^ 

1761? 69T© APRINT 6N Z AND 0»0 
•BL » 10 #78 
•TAX i 1 *9 

• MC f 2 j^ 

rB- 

*-»■{*■ 



i c # " 

'■' 75 6 9iioninan - * -rt5*irfr» 

i ■340j ( <i Dya — 48igg#e3#e5jS7#go#3j,#3gi3»i » e#»it 



*B = 1757 S ,9, lO } il ; .,z, 14- j 15,16,17 

1762? Z>/4B7*4# ALERT# PRETURN 

•MC9NT i 2 #6 

•MS f 1<* #63*62 

•TCX f % *3 

•LZX ■ 1 76 

•MC * 20 #1 

•DG© - 1 87 

■ VCY f -i 9* 

•C i .37777774 18#39j 



PAGE 11 SYSTEM (LEWENDAU/N.gMNeOT 11/05/69 0658?30 

1763? UWs P6T# Gn/7 

• BR * 10 '82 
•8L * * '79 

•MS « 15 65,6|#62 

•TCY f 1 H 
•TAX f 1 *9 
•LQY t 1 75 

• UX ! I 76 
t VCY i 1 &*" 

•C i 7 39#*0#*1# 



17641 TBBJ? XFUAS^SS 
•TYW t 1 *8 

• LRN f <f #69 

*V C Y e 1 8* 

•T©SY i 1 57 

1765 J FUG^IQB 

• TCX i 1 *3 

• TXW f 1 ^7 

•URN i 3 71#70 

i V C Y — * — 1 86~ 

•C t «10 18/t9#e0*2l*e2#23i?*#25#g6#87#2S#89/30i3W32#33/3^#35/36#37/38# 

1766* XL68P? MV8BJ 

t.RRN l 2 '67 

•THY t 1 H 

•UMY • 1 73 

tVCY i 1 86r 

17675 OBjWM UCY 3# GW7 

•BR ■ 10 #82 

tBL ■ ^ '79 

,M$ * 3 65,64 

•TCY § 1 ** 

• TXW § 1 *7 
iLMX * 1 72 
tUQY 9 1 75 
•URN i 2 '70 

iVCY i 1 — **~ 

• C i 7 |9M0#H# 

17701 M^M AND Q MRG 60B# GST0 PRJN jF B^O 
•BR i 10 '82 

• TCX f 1 ^3 
•TAX f 1 *9 
•UMX • 1 72 
•MC ■ 23 5#*#1 



PAGE tg SYSTEM (UEWENDAL ) /N.EMN6DT 11/05/69 0658J30 

tB i 1773 8#9U0#11#12#13#14#16#17# 
•C § 60 36#37# 



1771? Q9T9 PR1N 8N FLAG+1>§0 

tRRN f 3 68#67 

tlHR i 1 42 

tTHY * 1 4$ 

• MC * 7 5# 4# 3' 

iB « 1773 8*9jl0*n#12»l3'14jl6#174 



1772! GST9 PRJN+2 SN XFLAG>iO 

tRRN f 4 #66 

•THY f 1 46 

• MC * 7 5#4#3 

#B i 1775 8#9#10#U#12#13#14#15#17# 



1773? PRJNJ CAUl APRJNT 
tMC8NT * 1 7 
•MC • X 5 

■t VCY f-i — &* 

• B f 1757 8#9#10#U#i2 # 14#15U6,17# 



1774? MVXFUAG^/XFUAG MRG #B7 
•RRN ■ 4 #66 
44 

48 

73 

tLRN i 4 #69 
tVCY -»-t 8# 



•TCY § 1 

•THY i i 

• TYW f 1 

I t 



•C i .40000000 18# 



177^8 G9T9 XU©8P 8N FLAGVFLA6*t<0 

•RRN « 3 68#67 

•IHR t 1 ^2 

• THY i 1 . 46 
•TYW t 1 48 
•URN v 3 71,70 
•MC p 10 #2 

• B i 1766 8#9jl0ni#12#l3,15/16# 



1776? C38T8 M 
•MC8NT * 3 7#6 
•BR « 10 #82 



• BU * 4 


#79 


•TAX t t 


49 


•MC i 20 
•-VCY i? 1 


#i 



EXPANDED LISTING OF CPU MNODT 

Holding Register Assignments 

ADR = RO 
OBJ = R2 
FLAG = R3 
XFLAG = R4 
GLOP = R5 

Input Special Character Codes 

SLSH = 57B 
CRT - 15B 
LFD - 12B 
gg = 107B 
UPARW = 136B 
SPACE = 40B 

Location Addresses 

START: 1700 
LOOP: 1701 
SLASH: 1735 
CR: 1725 
LF: 1731 
BRANCH: 1743 
UPAR: 1746 
APRINT: 1754 



STRE 
TOBJ 
PRIN 



1752 
1761 
1771 



CPU MNfODT 
1700: start: flag ■*- 47B,clabcd 







.MS =70 




60, 


61, 62 






.TCX = 1 




43 








.LRN = 3 




70, 


71 






.C = 4B7 




18 




1701: 


loop: 


z ■<- 4B7, 


alert 










.MS = 14 




62, 


63 






.TCX = 1 




43 








.LZX = 1 




76 








.C = 4B7 




18 





1702: pin, m +■ e2, q <- 2 



1704 



.MS = 16 


62, 63, 


.TCX = 1 


43 


.LQX = 1 


74 


.LMY = 1 


73 


.TE2Y = 1 


89 


.C = 2 


40 



1703: goto loop on z and q = 
.BR = 10 82 
.TAX = 1 49 
.MC = 22 1, 4 
.B = 1701 8, 9, 10, 11, 17 



z ■«- 4B7 + 2, alert 
.MS = 14 62, 63 
.TCX =1 43 
.LZX - 1 76 
.C = 4B7 + 2 18, 40 



CPU ODT (2) 

1705: pin, m ■+ e2, q «- 177B 

.MS - 16 62, 63, 64 

.TCX =1 43 

.LMY =1 73 

.LQX = 1 74 

.TE2Y =1 89 

.C = 177B 35, 36, 37, 38, 39, 40, 41 

1706: m •*- glop <- m and q, q ■«- slsh 



.BR = 10 


82 


.TCY = 1 


44 


.TAX = 1 


49 


.LMX = 1 


72 


.LQY = 1 


75 


.TXW = 1 


47 


.LRN = 5 


69, 71 


.C = 57 


36, 38, 39, 40, 41 



1707: goto slash on m eor q = 0, q -«- crt 

.BR = 10 82 

.BL = 16 78,-79, 80 

.TCY = 1 44 

.TAX = 1 49 

.LQY = 1 75 

.MC - -22' . 1, 4 

.B = 1735 8, 9, 10, 11, 13, 14, 15, 17 

.C - 15 38, 39, 41 

1710: goto cr on m eor q = 0, q + l£d 

.BR =10 82 

.BL =16 78, 79, 80 

.TCY = 1 44 

.TAX =1 49 

.LQY =1 75 

.MC =22 1, 4 

.B = 1725 8, 9, 10, 11, 13, 15, 17 

.C = 12 . 38, 40 



CPU ODT (3) 

1711: goto If on m eor q = 0, q ■*■ gg 
.BR ■= 10 82 
.BL= 16 78, 79, 80 
.TCY =1 44 
.TAX =1 49 
.LQY =1 75 
,MC = 22 1, 4 

.B - 1731 8, 9, 10, 11, 13, 14, 17 
.C= 107 35, 39, 40, 41 

1712: goto branch on m eor q = 0, q «- uparw 
.BR = 10 82 
.BL = 16 78, 79, 80 
.TCY = 1 44 
.TAX =1 49 
.LQY =1 75 
.MC = 22 1, 4 

.B = 1743 8, 9, 10, 11, 12, 16, 17 
.C - 136 35, 37, 38, 39, 40 

1713: goto upar on m eor q = 0, q +■ 170B 
.BR « 82 
.BL = 16 78, 79, 80 
.TCY = 1 44 
.TAX =1 49 
.LQY =1 75 

.B - 1746 8, 9, 10, 11, 12, 15, 16 
.C = 170 35, 36, 37, 38 

1714: m -*- m and q, q -*- 60B 



.BR = 10 


82 


.TCY = 1 


44 


.TAX = 1 


49 


.LQY = 1 


75 


.IMC = 1 


72 


.C = 60 


36, 37 



CPU ODT (4) 



1715: 



goto loop on m eor q f 0, m -*- glop 



1716 



1717 



.BR = 10 


82 


.BL - 16 


78, 79, 80 


.THY = 1 


46 


.TAX = 1 


49 


.LMY - 1 


73 


.RRN - 5 


66 , 68 


.MC = 23 


1, 4, 5 


.B - 1701 


8, 9, 10, 11, 17 


call aprint 




.MCONT = 1 


7 


.MC - 20 


1 


.B = 1754 


8, 9, 10, 11, 12, 14 


z ■*■ m and q, 


goto * +2 on flag < 


.BR = 10 


82 


.THY - 1 


46 


.TAX = 1 


49 


.LZY = 1 


76 


.RRN = 3 


67,. 68 


.MC = 53 


0, 2, 4, 5 


.B =1721 


8, 9, 10, 11, 13, 17 



1720 



m ■*■ obj, q •<- 7B7, goto * + 3 



.TCY = 1 


43 




.THY = 1 


46 




.LMY = 1 


73 




.LQX = 1 


74 • 




.MC = 1 


5 




.RRN - 2 


67 




.B = 1723 


8, 9, 10, 11, 


13, 16, 17 


.C = 7B7 


18, 19, 20 





CPU ODT (5) 

1721: flag «- 

.TXW = 1 47 

.LRN = 3 70, 71 

1722: obj + z s goto loop 



.BR = 4 


83 




.BL a 10 


78 




.TXW = 1 


47 




.TAX - 1 


49 




.LRN = 2 


70 




.MC = 20 


1 




.B = 1701 


8, 9, 


10, 11, 17 



1723: q -e m and not q LCY 3 



.BR = 10 


82 


.BL = 14 


78 , 79 


.LQX - 1 


74 


.MS = 3 


64, 65 


.C = 16B4 


26, 27, 28 



1724: obj + q or z, goto -loop 







.BR = 6 


83, 84 






.BL = 10 


78 






.TXW = 1 


47 






.TAX =1 


49 






.LRN = 2 


70 






.MC = 1 


5 






.B = 1701 


8, 9, 10, 11, 17 


1725: 


CR: 


call stre 








.MC = 20 


1 






.MCONT = 1 


7 






.B = 1752 


8, 9, 10, 11, 12, 14, 16 



1726: 



CPU ODT (6) 




m <- crt, call 


aprint 




.TCX = 1 


43 




.LMX --= 1 


72 




.MC - 1 


5 




.MCONT = 1 


7 




.B = 1754 


8, 9, 10, 11, 


12, 14, 15 


.C = 15 


38, 39, 41 




.THY = 1 


46 




.RRN = 2 


67 





1727 



m ■<- Ifd, call aprint, Rl <■ 

.TCX = 1 43 

.LMX = 1 72 

.MC = 20 1 

.MCONT = 1 7 

.B - 1754 8, 9, 10, 11, 12, 14, 15 

.C = 12 38, 40 

.LRN =1 71 



1730: 



flag ■*- 4B7, goto loop 



.TCX = 1 
.TXW = 1 
.LRN = 3 
.MC = 1 
.B = 1701 
.C = 4B7 



43 

47 ' 

70, 71 

5 

8, 9, 10, 11, 17 

18 



1731: If: 



call stre 
.MC = 20 
.MCONT - 1 
.B = 1752 



1 . 

7 

8, 9, 10, 11, 12, 14, 16 



1732: 



CPU ODT (7) 

m ■«- crt, call aprint 

.TCX - 1 43 

.LMX =1 72 

.MC = 1 5 

.MCONT = 1 7 

.B = 1754 8, 9, 10, 11, 12, 14, 15 

.C =15 38, 39, 41 



1733 



m <- If, call aprint 
.TCX = 1 43 
.LMX = 1 72 
.MC = 20 
.MCONT = 1 
.B = 1754 
.C - 12 



1 
7 

8, 9, 10, 11, 12, 14, 15 
38, 40 



1734 



obj «*- adr + adr + 1, call tobj 



.IHR = 1 


42 


.THY = 1 


46 


.TYW = 1 


48 


.LRO = 1 


58 


.LRN = 1 


70 


.MC =1 


5 


.MCONT = 1 


7 


.B = 1761 


8, 



8, 9, 10, 11, 12, 13, 17 



1735: slash: m <- slsh, call aprint 



.TCX = 1 43 

.LMX = 1 72 

.MC-= 20 1 

.MCONT = 1 7 

.B - 1754 8, 9, 10, 11, 12, 14, 15 

.C = 57 36, 38, 39, 40, 41 



1736 



CPU 


ODT 


(8) 






m -*■ space, 


ca" 


11 aprint 






.TCX - 1 




43 






.LMX = 1 




72 






.MC - 1 




5 






.MCONT = 1 




7 






.B = 1754 




8 9 9, 10, 11, 


12, 


14, 15 


.C = 40 




36 







1737: fetch adr ■*■ obj 



.RRN = 2 


67 


.MS = 44 


60, 63 


.THY = 1 


46 


.TYW - 1 


48 


.LRO * 1 


58 



1740: obj <- m, call tobj, set A 



.TXW = 1 


47 




.TAX = 1 


49 




.LRN = 2 


70 




.BR = 10 


82 




.BL » 4 


79 




.MC = 20 


1 




.MCONT = 1 


7 




.MS = 30 


61, 62 




.B = 1761 


8, 9, 10, 11, 


12, 13, 17 



1741: m ■*- flag <- 4B7 + space, call aprint, clabcd 



.TCX = 1 


43 






.TXW = 1 


47 






.LMX = 1 


72 . 






.LRN = 3 


70, 71 






.MC - 1 


5 






.MCONT = 1 


7 






.MS = 70 


60, 61, 62 






.B = 1754 


8, 9, 10, 11, 


12, 


14, 15 



.C = 40000040 18, 36 



CPU ODT (9) 

1742: goto loop 

.MC = 20 1 

.B = 1701 8, 9, 10, 11, 17 

1743: branch: m -*- gg, call aprint 







.TCX = 1 


43 






.LMX - 1 


72 






.MC = 1 


5 






.MCONT = 1 


7 






.B = 1754 


8, 9, 10, 11, 12, 14, 15 






.C = 107 


35, 39, 40, 41 


744: 




m ■*- obj 








.RRN = 2 


67 






.THY = 1 


46 






.LMY = 1 


73 






.C = 1B5 


26 ? 


1745: 




goto m 








.BR - 10 


82 






.BL = 4 


79 






.TAX = 1 


49 






.MC = 20 


1 






.MCONT = 3 


6, 7 


1746: 


upar: 


call stre 








.MC = 1 


5 






.MCONT « 1 


7 






.B = 1752 


8, 9, 10, 11, 12, 14, 16 



1747: m ■<- uparw, call aprint 

.TCX = 1 43 

.LMX = 1 72 

.MC = 20 1 

.MCONT =1 7 

.B = 1754 8, 9, 10, 11, 12, 14, 15 

.C = 136 35, 37, 38, 39, 40 



CPU ODT (10) 
1750: m ■<- adr, q •*- 2 9 dgoto If + 1 





.TCX = 1 




43 




.THY = 1 




46 




.LMY = 1 




73 




.LQX = 1 




74 




.MC = 1 




5 




.DGO = 1 




87 




.B = 1732 




8, 9 9 10, 11, 13, 14, 16 




.C = 2 




40 


1751: 


adr + m - 


q 






.BR = 15 




82, 83, 85 




.BL = 4 




79 




.LOC = 1 




50 




.TXW - 1 




47 




.TAX = 1 




49 




.LRO * 1 




58 


1752: stre: 


m <- obj, 


dreturn 




.THY = 1 




46 




.LMY = 1 




73 




.RRN = 2 




67 




.MC - 20 




1 




.MCONT - 


2 


6 




.DGO = 1 




87 


1753: 


store 








.MS - 42 




60, 64 



1754: aprint: glop <- m, z + 4B7, alert 



.TCY = 1 


44 




.TXW = 1 


47 




.TAX = 1 


49 




.LZY = 1 


77 




.LRN = 5 


69, 


71 


.BR =10 


82 




.BL = 4 


79 




.MS = 14 


62, 


63 


.C = 4B7 


18 





1755: 



CPU ODT 


(ID 


pin, m «- e2, 


q <- 4 


.TCX = 1 


43 


.LQX = 1 


74 


.LMY = 1 


73 


.TE2Y = 1 


89 


♦ MS = 16 


62,63,64 


.C - 4 


39 



1756 



1757 



m ■<- glop, goto aprint on m and q = 



.BR - 10 


82 


.THY - 1 


46 


.TAX = 1 


49 


.LMY = 1 


73 


.RRN = 5 


66, 68 


.MC = 22 


1, 4 


.B - 1754 


8, 9, 10, 11, 12, 14, 15 



z •<- 4B7 + 4, alert, dreturn 



.TCX = 1 


43 


.LZX = 1 


76 


.MC = 1 


5 


.MCONT = 2 


6 


.MS = 14 


62, 63 


.DGO = 1 


87 


.C « 4B7+4 


18, 39 



1760: 



z ■*- m, pot, q -*- 7 



.BR = 10 


82 


.BL = 4 


79 


.TCY = 1 


44 


.TAX = 1 


49 


.LQY = 1 


75 


.LZX = 1 


76 


.MS = 15 


62, 63, 65 


.C = 7 


39, 40, 41 







CPU ODT 


(12) 




1761: 


tobj : 


xflag ■*- os 
.TYW = 1 
.LRN = 4 
.TOSY = 1 


48 
69 
57 




1762: 




flag <■ -10B 
.TCX = 1 
.TXW = 1 
.LRN = 3 


43 
47 
70, 71 








.C = -10B 


18, 19, 20, 21, 


22, 23 


1763: 


xloop: 


m <- obj 
.RRN = 2 
.THY = 1 
.LMY * 1 


67 
46 
73 





37, 38 



1764: 



m <- 



obj <- m ley 3, q -<- 7 



.TCY = 1 


44 




.TXW =1 


47 




.LMX = 1 


72 




.LQY = 1 


75 




.BR = 10 


82 


• 


.BL = 4 


79 




.LRN = 2 


70 




.MS = 3 


64, 


65 


.C = 7 


39, 


40, 41 



1765: 



CPU ODT (13) 

m •<- MANDQ MRG 60B, z <- flag + 1 
goto prin if BL .? 



.TCX - 1 


43 


.IHR - 1 


42 


.THY - 1 


46 


.TAX = 1 


49 


.LMX = 1 


72 


.LZY = 1 


77 


.BR = 10 


82 


.RRN = 3 


67 9 68 


.MC = 23 


1, 4, 5 


.B = 1771 


8, 9, 10 9 11, 12, 13, 14, 17 


.C = 60 


36, 37 



1766: 



z -*- xflag, goto prin on z >_ 

.THY =1 46 

.RRN =4 66 

.MC =5 3,5 

.B = 1771 8, 9, 10, 11, 12, 13, 14, 17 

.LZY =* 1 77 



1767 



goto prin on A = 1 ' 

.MC =33 1, 2, 4, 5 

.B = 1771 8, 9, 10, 11, 12, 13, 14, 17 



1770 



goto prin + -2 on z >. 

.MC = 5 3, 5 

.B = 1773 8, 9, 10, 11, 12, 13, 14, 16, 17 



1771: prin: 



call aprint 
.MC = 20 
.MCONT = 1 
.B = 1754 



1 
7 
8, 9, 10, 11, 12, 14, 15 



1772: 



1774: 



1775: 



CPU i 


ODT 


(14) 


m ■<- xflag 


<- 


xflag mrg 4B7 


.RRN - 4 




66 


.TCY = 1 




44 


.THY = 1 




46 


.LMY = 1 




73 


.LRN = 4 




69 


,C = 4B7 




18 



1773: goto xloop on flag + flag + 1 < 



.IHR = 1 


42 




.THY = 1 


46 




.TYW = 1 


48 




.RRN = 3 


67, 68 




.LRN - 3 


70, 71 




.MC = 53 


0, 2, 4, 5 




.B = 1763 


8, 9, 10, 11, 


12, 13, 16, 17 


goto m 






.TAX = 1 


49 




.BR = 10 


82 




.BL » 4 


79 




.MC = 1 


5 . 




.MCONT = 3 


6, 7 




.C = 1B5 


26 ? 







.RRN = 1 


68 ? 




.LRN = 1 


71 ? 


1776: 






1777: 


goto start, 


obj -*- 




.TXW = 1 


47 




.LRN = 2 


70 




.MC = 1 


5 




.B = 1700 


8, 9, 10, 11 



